home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / EIGHT ALIEN SHIPS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  16 lines
  1. 1  REM  REQUIRES BLOCK ROUTINES $908B AND BLOCK SHAPE #144
  2. 5 YINCR = 2:HR = 3:HL = 1: REM  SET YINCR/SET LEFTMOST SHAPE
  3. 10  HGR2 : CALL 37799: POKE 251,144
  4. 15  POKE 252,6: POKE 253,17: FOR X = 1 TO 8: REM  SET VT/VB-START LOOP
  5. 20  POKE 254,HR: POKE 255,HL: CALL 37679: REM  SET HR/HL-DRAW A SHAPE
  6. 25 HR = HR +5:HL = HL +5: NEXT : REM  MOVE OVER FOR NEXT SHAPE
  7. 35  POKE 227,YINCR: REM  SET YINCR
  8. 50  FOR Y = 1 TO 170/YINCR: REM  SET # OF MOVES DOWN
  9. 55 HR = 3:HL = 1: POKE 254,HR: POKE 255,HL: FOR X = 1 TO 8: REM  RESET HR/HL-START MOVE LOOP
  10. 60  CALL 37003: CALL 37470: REM  MOVE SHAPE DOWN-RESTORE VT/VB UP
  11. 65 HR = HR +5:HL = HL +5: POKE 254,HR: POKE 255,HL: NEXT X: CALL 37485: NEXT Y: REM  MOVE TO NEXT SHAPE-RESET VT/VB FOR NEXT SHAPE
  12. 75  FOR Y = 1 TO 170/YINCR: REM  SET # OF MOVES UP
  13. 80 HR = 3:HL = 1: POKE 254,HR: POKE 255,HL: FOR X = 1 TO 8: REM  RESET HR/HL-START MOVE LOOP
  14. 85  CALL 37065: CALL 37485: REM  MOVE SHAPE UP-RESTORE VT/VB-DOWN
  15. 90 HR = HR +5:HL = HL +5: POKE 254,HR: POKE 255,HL: NEXT X: CALL 37470: NEXT Y: REM  MOVE TO NEXT SHAPE-RESET VT/VB FOR NEXT SHAPE
  16. 95  GOTO 50: REM  START ALL OVER